﻿Imports Entidad
Imports Datos
Public Class ProgramacionNegocio

    Dim dao As New ProgramacionDatos

    Sub registrarProgramacion(prog As Programacion)
        dao.registrarProgramacion(prog)
    End Sub

    Function listarAsignaciones(fecha As String) As DataSet
        Return dao.listarAsignaciones(fecha)
    End Function

    Function listarPedidosXProgramacion(vehiculo As String, fecha As String, turno As String) As DataSet
        Return dao.listarPedidosXProgramacion(vehiculo, fecha, turno)
    End Function

    Sub eliminarProgramacion(vehiculo As String, fecha As String, turno As String, dciCodigo As String)
        dao.eliminarProgramacion(vehiculo, fecha, turno, dciCodigo)
    End Sub

    Sub eliminarProgramacionXPedido(dciCodigo As String)
        dao.eliminarProgramacionXPedido(dciCodigo)
    End Sub

    Function obtenerPedidosProgramados(vehiculo As String, fecha As String, turno As String) As DataSet
        Return dao.obtenerPedidosProgramados(vehiculo, fecha, turno)
    End Function

    Function listarPedidosSalida(codVehiculo As String, codTurno As String, fecha As String) As DataSet
        Return dao.listarPedidosSalida(codVehiculo, codTurno, fecha)
    End Function

    Function listarBultosLargos(codPedido As String) As DataSet
        Return dao.listarBultosLargos(codPedido)
    End Function

    Function listarSalidaPedidos(codVehiculo As String) As DataSet
        Return dao.listarSalidaPedidos(codVehiculo)
    End Function

    Function listarArticulosXPedido(codPedido As String) As DataSet
        Return dao.listarArticulosXPedido(codPedido)
    End Function

    Function listarSalidaPedidosXNPED(codVehiculo As String, codPedido As String) As DataSet
        Return dao.listarSalidaPedidosXNPED(codVehiculo, codPedido)
    End Function

    Function listarSalidaPedidosXPED(codVehiculo As String, codPedido As String) As DataSet
        Return dao.listarSalidaPedidosXPED(codVehiculo, codPedido)
    End Function

    Function listarVehiculosProgramados(fecha As String, turno As String) As DataSet
        Return dao.listarVehiculosProgramados(fecha, turno)
    End Function

    Sub actualizarFechaSalida(fecha As String, turno As String, vehiculo As String)
        dao.actualizarFechaSalida(fecha, turno, vehiculo)
    End Sub

    Sub actualizarFechaLlegada(vehiculo As String, pedido As String)
        dao.actualizarFechaLlegada(vehiculo, pedido)
    End Sub

    Function obtenerProgramacion(fecha As String, turno As String) As DataSet
        Return dao.obtenerProgramacion(fecha, turno)
    End Function

    Sub actualizarOrden(pedido As String, orden As String)
        dao.actualizarOrden(pedido, orden)
    End Sub

    Function obtenerNumeroOrden() As Integer
        Return dao.obtenerNumeroOrden
    End Function

    Function obtenerDatosProgramacion(codPedido As String) As DataSet
        Return dao.obtenerDatosProgramacion(codPedido)
    End Function

    Sub actualizarFechaCarga(codPedido As String)
        dao.actualizarFechaCarga(codPedido)
    End Sub

End Class
